﻿Imports SendKeys
Public Class Form1


    Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click
        tmr1.Enabled = True
    End Sub
    Dim x As Integer = 0
    Private Sub tmr1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmr1.Tick
        If x = 1 Then
            Debug.Print(txtText.Text)
            txtText.Text = Trim(txtText.Text)
            System.Windows.Forms.SendKeys.Send(txtText.Text)
            x = 0
            tmr1.Enabled = False
        Else
            x = 1
        End If
    End Sub



    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Private Sub btnAbout_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAbout.Click
        AboutBox1.Show()
    End Sub
End Class
